% ARQUIVO = "tabela_preco" vpaginax = Request("pagina") if trim(vpaginax) = "" or isnull(vpaginax) then vpaginax = "1" end if vtipo ="" vtipo = Request("tipo") vfornecedor = Request("fornecedor") vindice = "PRECO_EXIBICAO" if Request("indice") <> "" then vindice = Request("indice") end if Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" if trim(vtipo) <> "" and trim(vfornecedor) <> "" then SQL = "SELECT * FROM TABELA_PRECO WHERE tipo ='" & vtipo & "' AND FORNECEDOR ='" & vfornecedor & "' ORDER BY " & vindice ' SQL = "SELECT * FROM TABELA_PRECO WHERE preco_exibicao > 0 and tipo ='" & vtipo & "' AND FORNECEDOR ='" & vfornecedor & "' ORDER BY " & vindice else SQL = "SELECT * FROM TABELA_PRECO WHERE tipo ='" & vtipo & "' ORDER BY " & vindice ' SQL = "SELECT * FROM TABELA_PRECO WHERE preco_exibicao > 0 and tipo ='" & vtipo & "' ORDER BY " & vindice end if Set RS=OBJdbConnection.Execute(SQL) SQL2 = "SELECT * FROM DOLAR" Set RS2=OBJdbConnection.Execute(SQL2) vdolardia = rs2("dolar") if RS.EOF then erro = "1" else erro = "0" vtotalregistros = 0 vtotalf=0 do while not rs.eof vtotalregistros = vtotalregistros + 1 rs.movenext loop vfor = ((vpaginax -1) * 30) + 1 if vfor = 1 then rs.movefirst else rs.movefirst for y = 1 to vfor -1 if not rs.eof then rs.movenext end if next end if vtpag = ROUND(vtotalregistros / 30,1) if vtpag > int(vtpag) then vtpag = int(vtpag) + 1 end if vap = "" if vtpag = 0 then vtpag = 1 end if for y = 1 to vtpag vap = vap & y & "^" next Response.Write "PAGINAS : " & vtpag if trim(vap) = "" or trim(vap) = "^" then vap = "1" & "^" end if varray = Split(vap,"^") end if if trim(Session("email_carrinho")) <> "" then vrevenda = Session("email_carrinho") else vrevenda = "" end if %>
|